home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Czarina.dxr / Internal_1_foundation cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.6 KB  |  86 lines
  1. property spriteNum, row, myLoc
  2. global foundation, stock, basecard, mover, points, equal, currentsel, godlist
  3.  
  4. on beginSprite me
  5.   row = determinerow()
  6.   myLoc = sprite(spriteNum).loc
  7.   foundation.addProp(row, new(script("card pile")))
  8.   if row = #one then
  9.     sprite(spriteNum).member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
  10.     stock.cards.deleteAt(1)
  11.     foundation[row].addCard(spriteNum)
  12.     basecard = foundation[row].getlastcard().rank
  13.   end if
  14. end
  15.  
  16. on determinerow me
  17.   if spriteNum = 28 then
  18.     return #one
  19.   else
  20.     if spriteNum = 27 then
  21.       return #two
  22.     else
  23.       if spriteNum = 26 then
  24.         return #three
  25.       else
  26.         if spriteNum = 25 then
  27.           return #four
  28.         end if
  29.       end if
  30.     end if
  31.   end if
  32. end
  33.  
  34. on mouseDown me
  35.   if foundation[row].cards.count > 0 then
  36.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  37.     sprite(spriteNum).locZ = spriteNum + 2000
  38.     mover = timeout("Het").new(1, #moveme, me)
  39.     if foundation[row].getcardcount() > 1 then
  40.       sprite(15).member = member(foundation[row].cards[foundation[row].getcardcount() - 1].membername, "playing cards")
  41.       sprite(15).loc = sprite(spriteNum).loc
  42.     else
  43.       sprite(15).member = member("empty", "playing cards")
  44.     end if
  45.   end if
  46. end
  47.  
  48. on moveme me
  49.   sprite(spriteNum).loc = the mouseLoc
  50.   if the stillDown = 0 then
  51.     mover.forget()
  52.     sprite(spriteNum).loc = myLoc
  53.     sprite(spriteNum).locZ = spriteNum
  54.   end if
  55. end
  56.  
  57. on mouseUp me
  58.   if foundation[row].getcardcount() > 0 then
  59.     if equal then
  60.       puppetSound(3, member("pick card", "100GPak Generic SFX"))
  61.       sprite(spriteNum).loc = foundation[row].getlastcard().location
  62.       sprite(spriteNum).locZ = spriteNum
  63.       sprite(currentsel).member = sprite(spriteNum).member
  64.       godlist.addCard(currentsel)
  65.       foundation[row].cards.deleteAt(foundation[row].getcardcount())
  66.       if foundation[row].getcardcount() > 0 then
  67.         sprite(spriteNum).member = member(foundation[row].getlastcard().membername, "playing cards")
  68.       else
  69.         sprite(spriteNum).member = member("empty", "playing cards")
  70.         sprite(15).member = member("empty", "playing cards")
  71.       end if
  72.       if (currentsel <> 25) and (currentsel <> 26) and (currentsel <> 27) and (currentsel <> 28) then
  73.         points = points - 10
  74.         checkwin()
  75.       end if
  76.       equal = 0
  77.       currentsel = 0
  78.       godlist = VOID
  79.     else
  80.       puppetSound(3, member("drop card", "100GPak Generic SFX"))
  81.       sprite(spriteNum).loc = foundation[row].getlastcard().location
  82.       sprite(spriteNum).locZ = spriteNum
  83.     end if
  84.   end if
  85. end
  86.